home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
demo 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
282b
|
11 lines
100 poke204,0:in$="":print"]";
110 getei$:ifei$=""then110
120 ifei$=chr$(13)andin$<>""thenpoke204,1:print" [157] ":in=val(in$):return
130 ifei$=chr$(20)thenly=len(in$):ifly>0thenin$=left$(in$,ly-1):print" [157][157] [157]";
140 iflen(in$)=>15then110
150 ifei$="e"then190
160 ifei$="."then190
170 ifei$="-"then190
180 ifasc(ei$)>57orasc(ei$)<48then110
190 in$=in$+ei$:printei$;:goto110